Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2024 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
Chd|====================================================================
Chd|  SORTIE_MVW                    source/output/report/sortie_mvw.F
Chd|-- called by -----------
Chd|        ARRET                         source/system/arret.F         
Chd|-- calls ---------------
Chd|        INOUTFILE_MOD                 ../common_source/modules/inoutfile_mod.F
Chd|====================================================================
      SUBROUTINE SORTIE_MVW(IMVW,IMVW_REF)
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE INOUTFILE_MOD
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "task_c.inc"
#include      "com08_c.inc"
#include      "scr14_c.inc"
#include      "chara_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
c      my_real
c     .        X(3,*)
      INTEGER
     .         IMVW,IMVW_REF
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER
     .         IOUTMVW,I
      CHARACTER FILNAM*100
      CHARACTER LINE*200
      CHARACTER*100  FMW
      
      INTEGER :: LEN_TMP_NAME
      CHARACTER(len=2148) :: TMP_NAME
C=======================================================================
      IF(ISPMD == 0) THEN
        FILNAM=ROOTNAM(1:ROOTLEN)//'.mvw'
        IOUTMVW = 123123

        LEN_TMP_NAME = OUTFILE_NAME_LEN + LEN_TRIM(FILNAM)
        TMP_NAME=OUTFILE_NAME(1:OUTFILE_NAME_LEN)//FILNAM(1:LEN_TRIM(FILNAM))

        OPEN(UNIT=IOUTMVW,FILE=TMP_NAME(1:LEN_TMP_NAME),
     .         ACCESS='SEQUENTIAL',
     .         FORM='FORMATTED',STATUS='UNKNOWN')
       IF(IMVW == 1 .OR. IMVW == 2)THEN
         IF(IZIP  == 0) THEN
           WRITE(IOUTMVW,'(A)')'{ safe_quotes_on }'
             LINE='{ GRAPHIC_FILE_1 = "'//ROOTNAM(1:ROOTLEN)//'A001"}'
           WRITE(IOUTMVW,'(A)') LINE
             LINE='{ RESULT_FILE_1 = "'//ROOTNAM(1:ROOTLEN)//'A001"}'
           WRITE(IOUTMVW,'(A)') LINE
         ELSE
           WRITE(IOUTMVW,'(A)')'{ safe_quotes_on }'
             LINE='{ GRAPHIC_FILE_1 = "'//ROOTNAM(1:ROOTLEN)//'A001.gz"}'
           WRITE(IOUTMVW,'(A)') LINE
             LINE='{ RESULT_FILE_1 = "'//ROOTNAM(1:ROOTLEN)//'A001.gz"}'
           WRITE(IOUTMVW,'(A)') LINE
         ENDIF
       ELSEIF(IMVW == 3 .OR. IMVW == 4)THEN
         WRITE(IOUTMVW,'(A)')'{ safe_quotes_on }'
           LINE='{ GRAPHIC_FILE_1 = "'//ROOTNAM(1:ROOTLEN)//'.h3d"}'
         WRITE(IOUTMVW,'(A)') LINE
           LINE='{ RESULT_FILE_1 = "'//ROOTNAM(1:ROOTLEN)//'.h3d"}'
         WRITE(IOUTMVW,'(A)') LINE
       ENDIF

       IF (IMVW_REF == 1) THEN
         WRITE(IOUTMVW,'(A)')'{ safe_quotes_on }'
           LINE='{ GRAPHIC_FILE_2 = "'//IMVW_REFPATH(1:LEN_TRIM(IMVW_REFPATH))//ROOTNAM(1:ROOTLEN)//'A001"}'
         WRITE(IOUTMVW,'(A)') LINE
           LINE='{ RESULT_FILE_2 = "'//IMVW_REFPATH(1:LEN_TRIM(IMVW_REFPATH))//ROOTNAM(1:ROOTLEN)//'A001"}'
         WRITE(IOUTMVW,'(A)') LINE
           LINE='{ PLOT_FILE_2 = "'//IMVW_REFPATH(1:LEN_TRIM(IMVW_REFPATH))//ROOTNAM(1:ROOTLEN)//'T01"}'
         WRITE(IOUTMVW,'(A)') LINE
       ENDIF

       IF (IMVW == 1 .OR. IMVW == 3)LINE='{ PLOT_FILE_1 = "'//ROOTNAM(1:ROOTLEN)//'T01"}'
       IF (IMVW == 2 .OR. IMVW == 4)LINE='{ PLOT_FILE_1 = "'//ROOTNAM(1:ROOTLEN)//'_0001.abf"}'
       WRITE(IOUTMVW,'(A)') LINE
       WRITE(IOUTMVW,'(A)')'*Id("HyperWorks", "13.*")'
       WRITE(IOUTMVW,'(A)')'*BeginPalette()'
       WRITE(IOUTMVW,'(A)')'*EndPalette()'
       WRITE(IOUTMVW,'(A)')'*BeginPage() // Page 1'
       WRITE(IOUTMVW,'(A)')'    *IsActive()'
       WRITE(IOUTMVW,'(A)')'    *Name("page1")'
       WRITE(IOUTMVW,'(A)')'    *Title("{p1w2c1.y.HWDatatype}", On)'
       WRITE(IOUTMVW,'(A)')'    *TitleFont("Arial", 1, 0, 12)'
       IF (IMVW_REF == 0) WRITE(IOUTMVW,'(A)')'    *Layout(10)'
       IF (IMVW_REF == 1) WRITE(IOUTMVW,'(A)')'    *Layout(10)'
       WRITE(IOUTMVW,'(A)')'    *BeginAnimator(Transient)'
       WRITE(IOUTMVW,'(A)')'        *CurrentTime(Undeformed)'
       WRITE(IOUTMVW,'(A)')'        *StartTime(0,0)'
       WRITE(IOUTMVW,'(A)')'        *EndTime(20,100433349)'
       WRITE(IOUTMVW,'(A)')'        *Increment(Forward, Frame, 1, BounceOff)'
       WRITE(IOUTMVW,'(A)')'    *EndAnimator()'
       WRITE(IOUTMVW,'(A)')'    *WindowIDs(1, 2, 3, 4)'
       WRITE(IOUTMVW,'(A)')'    *BeginWindow(Animation)         // Window 1'
       WRITE(IOUTMVW,'(A)')'        *IsActive()'
       WRITE(IOUTMVW,'(A)')'        *ExportFormat("PNG")'
       WRITE(IOUTMVW,'(A)')'        *AnimationNote("RUN REPORT")'
       WRITE(IOUTMVW,'(A)')'        *BeginGraphic()'
       WRITE(IOUTMVW,'(A)')'            *LightInfo(0, 0, 1, 0, 0, 0, 64)'
       WRITE(IOUTMVW,'(A)')'            *RotationAngle(15)'
       WRITE(IOUTMVW,'(A)')'            *BeginModel({GRAPHIC_FILE_1}, "RADIOSS (A) Result Reader")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Create 1D components:", "By solver output")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Displacement result based on:", "Model position")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Maximum Plastic strain over layers", "No")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Maximum Plastic strain over layers with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Plastic strain with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Strain Tensor with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                *ResultMathTemplate("Standard")'
       WRITE(IOUTMVW,'(A)')'                *BeginResult({RESULT_FILE_1}, "RADIOSS (A) Result Reader")'
       WRITE(IOUTMVW,'(A)')'                    *CurrentSubcase(1)'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Create 1D components:", "By solver output")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Displacement result based on:", "Model position")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Maximum Plastic strain over layers", "No")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Maximum Plastic strain over layers with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Plastic strain with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Strain Tensor with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                *EndResult()'
cc
c GENERIC PARTS
cc
       WRITE(IOUTMVW,'(A)')'                *BeginPart(1, "Orphan-Node", "PART", 0)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute(On, IdOff, 41, Opa, Sha, Msh, InFit, InCut, InIso)'
       WRITE(IOUTMVW,'(A)')'                *EndPart()'
       WRITE(IOUTMVW,'(A)')'                *BeginPart(851, "Rigid", "PART", 0)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute(On, IdOff, 18, Opa, Sha, Msh, InFit, InCut, InIso)'
       WRITE(IOUTMVW,'(A)')'                *EndPart()'
cc
c GROUPS
cc
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("0D Set", "Off", "Off", "255   0   0", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 1)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 0")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("1D Set", "Off", "Off", "  0 255   0", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 2)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 1")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("2D Set", "Off", "Off", "  0   0 255", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 3)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 2")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("3D Set", "Off", "Off", "  0   0 255", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 4)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 3")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("Orphan Nodes", "Off", "Off", "255 255 255", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 5)'
       WRITE(IOUTMVW,'(A)')'                        *Add("Orphan-Node id 1")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
cc
c 
cc
       WRITE(IOUTMVW,'(A)')'                *BeginDeformed()'
       WRITE(IOUTMVW,'(A)')'                    *ScaleMode("ScaleFactor")'
       WRITE(IOUTMVW,'(A)')'                    *Scale("1.000000 1.000000 1.000000")'
       WRITE(IOUTMVW,'(A)')'                    *ResolvedInSystem(0)'
       WRITE(IOUTMVW,'(A)')'                    *ResultType("Displacement")'
       WRITE(IOUTMVW,'(A)')'                    *UndeformedMode("None")'
       WRITE(IOUTMVW,'(A)')'                    *UndeformedColor("componentcolor")'
       WRITE(IOUTMVW,'(A)')'                    *UndeformedTracking("off")'
       WRITE(IOUTMVW,'(A)')'                *EndDeformed()'
       WRITE(IOUTMVW,'(A)')'                *BeginResultMath()'
       WRITE(IOUTMVW,'(A)')'                *EndResultMath()'
       WRITE(IOUTMVW,'(A)')'                *LayerNumber(0)'
       WRITE(IOUTMVW,'(A)')'            *EndModel()'
       WRITE(IOUTMVW,'(A)')'            *RenderOptions("None", "ClipTransparencyOff")'
       WRITE(IOUTMVW,'(A)')'            *DisplayOptions("NotesOn")'
       WRITE(IOUTMVW,'(A)')'            *BeginNote("On", "Model Info")'
       WRITE(IOUTMVW,'(A)')'                *Transparent("On")'
       WRITE(IOUTMVW,'(A)')'                *AutoHide("Off")'
       WRITE(IOUTMVW,'(A)')'                *FillColor(31)'
       WRITE(IOUTMVW,'(A)')'                *TextColor(1)'
       WRITE(IOUTMVW,'(A)')'                *Attach("WINDOW")'
       WRITE(IOUTMVW,'(A)')'                *Position(0.500000, 0.500000)'
       WRITE(IOUTMVW,'(A)')'                *Text("{for (i = 0; i != numpts(window.modeltitlelist); ++i) }\n
     .    {window.modelidlist[i]}:{window.modeltitlelist[i]}\n{window.loadcaselist[i]} : 
     . {window.simulationsteplist[i]} : {window.framelist[i]}\n{endloop}")'
                
       WRITE(IOUTMVW,'(A)')'                *Font("Arial", "regular", "regular", 10)'
       WRITE(IOUTMVW,'(A)')'                *Color(1)'
       WRITE(IOUTMVW,'(A)')'                *BorderWidth(0)'
       WRITE(IOUTMVW,'(A)')'                *NoteAlignment("Right")'
       WRITE(IOUTMVW,'(A)')'                *NoteAnchor("Right", "Top")'
       WRITE(IOUTMVW,'(A)')'                *TitleFlag("Yes")'
       WRITE(IOUTMVW,'(A)')'            *EndNote()'
       WRITE(IOUTMVW,'(A)')'            *Preferences(1, 31, 10, 0, 2, 3, 4, TriadOn, 30, "TopToBottom", "Off")'
       WRITE(IOUTMVW,'(A)')'            *CurrentModel(1)'
       WRITE(IOUTMVW,'(A)')'            *View(0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(A)')'                  -0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(A)')'                  -3.60866e-012, 0.866025, 0.5, 0, '
       WRITE(IOUTMVW,'(A)')'                  0, 0, 0, 1)'
       WRITE(IOUTMVW,'(A)')'            *ClippingRegion(-99.7008, 538.081, -174.535, 492.689, -560.868, 111.237)'


       WRITE(IOUTMVW,'(A)')'            *BeginNote("On", "Note 2")'
       WRITE(IOUTMVW,'(A)')'                *Transparent("On") '
       WRITE(IOUTMVW,'(A)')'                *AutoHide("Off") '
       WRITE(IOUTMVW,'(A)')'                *FillColor(31) '
       WRITE(IOUTMVW,'(A)')'                *TextColor(1) '
       WRITE(IOUTMVW,'(A)')'                *Attach("WINDOW") '
       WRITE(IOUTMVW,'(A)')'                *Position(0.081395, 0.944444) '
       WRITE(IOUTMVW,'(A)')'                *Text("RUN REPORT") '
       WRITE(IOUTMVW,'(A)')'                *Font("Arial", "regular", "regular", 10) '
       WRITE(IOUTMVW,'(A)')'                *Color(1) '
       WRITE(IOUTMVW,'(A)')'                *BorderWidth(1) '
       WRITE(IOUTMVW,'(A)')'                *Shape("Rectangle") '
       WRITE(IOUTMVW,'(A)')'                *NoteAlignment("Left") '
       WRITE(IOUTMVW,'(A)')'                *NoteAnchor("Left", "Top") '
       WRITE(IOUTMVW,'(A)')'                *TitleFlag("No") '
       WRITE(IOUTMVW,'(A)')'            *EndNote() '

c
c       FMW  = "(A28,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A )"
c       WRITE(IOUTMVW,FMT=FMW) ,'            *ClippingRegion(',XMIN_GLOB,',',XMAX_GLOB,',',YMIN_GLOB,',',
c     .                        YMAX_GLOB,',',ZMIN_GLOB,',',ZMAX_GLOB ,')'
c
       WRITE(IOUTMVW,'(A)')'        *EndGraphic()'
       WRITE(IOUTMVW,'(A)')'    *EndWindow()'
       WRITE(IOUTMVW,'(A)')'    *BeginWindow(Plot)         // Window 2'
       WRITE(IOUTMVW,'(A)')'        *SaveDataInline(0)'
       WRITE(IOUTMVW,'(A)')'        *ExportFormat("PNG")'
       WRITE(IOUTMVW,'(A)')'        *BeginPlot()'
       WRITE(IOUTMVW,'(A)')'            *PlotType(0)'
       WRITE(IOUTMVW,'(A)')'            *BeginPlotHeader(On)'
       WRITE(IOUTMVW,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 14)'
       WRITE(IOUTMVW,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Text("RUN REPORT (Energies)")'
       WRITE(IOUTMVW,'(A)')'                *HeaderAlignment(2)'
       WRITE(IOUTMVW,'(A)')'            *EndPlotHeader()'
       WRITE(IOUTMVW,'(A)')'            *BeginPlotFooter(Off)'
       WRITE(IOUTMVW,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
       WRITE(IOUTMVW,'(A)')'                *FooterAlignment(2)'
       WRITE(IOUTMVW,'(A)')'            *EndPlotFooter()'
       WRITE(IOUTMVW,'(A)')'            *BeginLegend(On)'
       WRITE(IOUTMVW,'(A)')'                *Font("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *BorderWidth(1)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Leader(Left)'
       WRITE(IOUTMVW,'(A)')'                *Location(INSIDE)'
       WRITE(IOUTMVW,'(A)')'                *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
       WRITE(IOUTMVW,'(A)')'                *AutoPosition(True)'
       WRITE(IOUTMVW,'(A)')'                *Reversed(no)'
       WRITE(IOUTMVW,'(A)')'            *EndLegend()'
       WRITE(IOUTMVW,'(A)')'            *UniformAspectRatio(0)'
       WRITE(IOUTMVW,'(A)')'            *FrameColor(66)'
       WRITE(IOUTMVW,'(A)')'            *BackgroundColor(1)'
       WRITE(IOUTMVW,'(A)')'            *GridLineColor(9)'
       WRITE(IOUTMVW,'(A)')'            *ZeroLineColor(0)'
       WRITE(IOUTMVW,'(A)')'            *BeginAxis(X, "X1", on)'
       WRITE(IOUTMVW,'(A)')'                *Label("Time")'
       WRITE(IOUTMVW,'(A)')'                *Scale(Linear)'
       WRITE(IOUTMVW,'(A)')'                *TicMethod(PerAxis)'
       WRITE(IOUTMVW,'(A)')'                *Min(0)'
c       WRITE(IOUTMVW,'(A)')'                *Max(22.5)'
                  FMW  = "(A21,1PG15.6,A)"
       WRITE(IOUTMVW,FMT=FMW) '                *Max(',TT,')'
C
       WRITE(IOUTMVW,'(A)')'                *Format(Auto)'
       WRITE(IOUTMVW,'(A)')'                *Precision(5)'
       WRITE(IOUTMVW,'(A)')'                *Tics(10)'
       WRITE(IOUTMVW,'(A)')'                *Grids(2)'
       WRITE(IOUTMVW,'(A)')'                *Color(67)'
       WRITE(IOUTMVW,'(A)')'                *AutoFit(TRUE)'
       WRITE(IOUTMVW,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *FitRange(FALSE)'
       WRITE(IOUTMVW,'(A)')'            *EndAxis()'
       WRITE(IOUTMVW,'(A)')'            *BeginAxis(Y, "Y1", on)'
       WRITE(IOUTMVW,'(A)')'                *Label("{p1w2c1.y.HWDatatype}")'
       WRITE(IOUTMVW,'(A)')'                *Scale(Linear)'
       WRITE(IOUTMVW,'(A)')'                *TicMethod(PerAxis)'
c       WRITE(IOUTMVW,'(A)')'                *Min(-2.5e+006)'
c       WRITE(IOUTMVW,'(A)')'                *Max(2.5e+007)'
       WRITE(IOUTMVW,'(A)')'                *Format(Auto)'
       WRITE(IOUTMVW,'(A)')'                *Precision(5)'
       WRITE(IOUTMVW,'(A)')'                *Tics(12)'
       WRITE(IOUTMVW,'(A)')'                *Grids(2)'
       WRITE(IOUTMVW,'(A)')'                *Color(67)'
       WRITE(IOUTMVW,'(A)')'                *AutoFit(TRUE)'
       WRITE(IOUTMVW,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *FitRange(FALSE)'
       WRITE(IOUTMVW,'(A)')'            *EndAxis()'
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 22, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 22, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 18, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 18, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 55, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 55, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Rotational kinetic energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Rotational kinetic energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Rotational kinetic energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Rotational kinetic energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Rotational kinetic e
     .nergy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 46, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 46, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("External forces work")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "External forces work")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("External forces work")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "External forces work")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "External forces work
     .")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 24, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 24, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       IF (IMVW == 1 .OR. IMVW == 3) THEN
         WRITE(IOUTMVW,'(A)')'                    *Request("Springs internal energy")'
       ELSE
         WRITE(IOUTMVW,'(A)')'                    *Request("Spring internal energy")'
       ENDIF
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       IF (IMVW == 1 .OR. IMVW == 3) THEN
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Springs internal energy")'
       ELSE
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Spring internal energy")'
       ENDIF
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       IF (IMVW == 1 .OR. IMVW == 3) THEN
         WRITE(IOUTMVW,'(A)')'                    *Request("Springs internal energy")'
       ELSE
         WRITE(IOUTMVW,'(A)')'                    *Request("Spring internal energy")'
       ENDIF
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       IF (IMVW == 1 .OR. IMVW == 3) THEN
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Springs internal energy")'
       ELSE
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Springs internal energy")'
       ENDIF
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       IF (IMVW == 1 .OR. IMVW == 3) THEN
         WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Springs internal e
     .nergy")'
       ELSE
         WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Spring internal en
     .ergy")'
       ENDIF
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 54, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 54, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Contact energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Contact energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Contact energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Contact energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Contact energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 38, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 38, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       IF (IMVW == 1 .OR. IMVW == 3) THEN
         WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
         WRITE(IOUTMVW,'(A)')'                *Line(1, 24, 1)'
         WRITE(IOUTMVW,'(A)')'                *Symbol(0, 24, 1)'
         WRITE(IOUTMVW,'(A)')'                *Shade(False)'
         WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
         WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Request("TE-Total Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Request("TE-Total Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
         WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
         WRITE(IOUTMVW,'(A)')'                *Line(1, 54, 1)'
         WRITE(IOUTMVW,'(A)')'                *Symbol(0, 54, 1)'
         WRITE(IOUTMVW,'(A)')'                *Shade(False)'
         WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
         WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Request("TER-Total Rotational Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "TER-Total Rotational Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Request("TER-Total Rotational Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "TER-Total Rotation
     .al Energy")'
         WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
         WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
         WRITE(IOUTMVW,'(A)')'                *Line(1, 38, 1)'
         WRITE(IOUTMVW,'(A)')'                *Symbol(0, 38, 1)'
         WRITE(IOUTMVW,'(A)')'                *Shade(False)'
         WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
         WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Request("TTE-Total Translational Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "TTE-Total Translational Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
         WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
         WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Request("TTE-Total Translational Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
         WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
         WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
         WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "TE-Total Energy")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
         WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
         WRITE(IOUTMVW,'(A)')'                *EndVector()'
         WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "TTE-Total Translat
     .ional Energy")'
         WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       ENDIF
       WRITE(IOUTMVW,'(A)')'        *EndPlot()'
       WRITE(IOUTMVW,'(A)')'    *EndWindow()'

      IF(IMVW_REF == 0) THEN

       WRITE(IOUTMVW,'(A)')'    *BeginWindow(Plot)         // Window 3'
       WRITE(IOUTMVW,'(A)')'        *SaveDataInline(0)'
       WRITE(IOUTMVW,'(A)')'        *ExportFormat("PNG")'
       WRITE(IOUTMVW,'(A)')'        *BeginPlot()'
       WRITE(IOUTMVW,'(A)')'            *PlotType(0)'
       WRITE(IOUTMVW,'(A)')'            *BeginPlotHeader(On)'
       WRITE(IOUTMVW,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 14)'
       WRITE(IOUTMVW,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Text("RUN REPORT (Mass)")'
       WRITE(IOUTMVW,'(A)')'                *HeaderAlignment(2)'
       WRITE(IOUTMVW,'(A)')'            *EndPlotHeader()'
       WRITE(IOUTMVW,'(A)')'            *BeginPlotFooter(Off)'
       WRITE(IOUTMVW,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
       WRITE(IOUTMVW,'(A)')'                *FooterAlignment(2)'
       WRITE(IOUTMVW,'(A)')'            *EndPlotFooter()'
       WRITE(IOUTMVW,'(A)')'            *BeginLegend(On)'
       WRITE(IOUTMVW,'(A)')'                *Font("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *BorderWidth(1)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Leader(Left)'
       WRITE(IOUTMVW,'(A)')'                *Location(INSIDE)'
       WRITE(IOUTMVW,'(A)')'                *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
       WRITE(IOUTMVW,'(A)')'                *AutoPosition(True)'
       WRITE(IOUTMVW,'(A)')'                *Reversed(no)'
       WRITE(IOUTMVW,'(A)')'            *EndLegend()'
       WRITE(IOUTMVW,'(A)')'            *UniformAspectRatio(0)'
       WRITE(IOUTMVW,'(A)')'            *FrameColor(66)'
       WRITE(IOUTMVW,'(A)')'            *BackgroundColor(1)'
       WRITE(IOUTMVW,'(A)')'            *GridLineColor(9)'
       WRITE(IOUTMVW,'(A)')'            *ZeroLineColor(0)'
       WRITE(IOUTMVW,'(A)')'            *BeginAxis(X, "X1", on)'
       WRITE(IOUTMVW,'(A)')'                *Label("Time")'
       WRITE(IOUTMVW,'(A)')'                *Scale(Linear)'
       WRITE(IOUTMVW,'(A)')'                *TicMethod(PerAxis)'
       WRITE(IOUTMVW,'(A)')'                *Min(0)'
c       WRITE(IOUTMVW,'(A)')'                *Max(22.5)'
                  FMW  = "(A21,1PG15.6,A)"
       WRITE(IOUTMVW,FMT=FMW) '                *Max(',TT,')'
C
       WRITE(IOUTMVW,'(A)')'                *Format(Auto)'
       WRITE(IOUTMVW,'(A)')'                *Precision(5)'
       WRITE(IOUTMVW,'(A)')'                *Tics(10)'
       WRITE(IOUTMVW,'(A)')'                *Grids(2)'
       WRITE(IOUTMVW,'(A)')'                *Color(67)'
       WRITE(IOUTMVW,'(A)')'                *AutoFit(TRUE)'
       WRITE(IOUTMVW,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *FitRange(FALSE)'
       WRITE(IOUTMVW,'(A)')'            *EndAxis()'
       WRITE(IOUTMVW,'(A)')'            *BeginAxis(Y, "Y1", on)'
       WRITE(IOUTMVW,'(A)')'                *Label("{p1w2c1.y.HWDatatype}")'
       WRITE(IOUTMVW,'(A)')'                *Scale(Linear)'
       WRITE(IOUTMVW,'(A)')'                *TicMethod(PerAxis)'
c       WRITE(IOUTMVW,'(A)')'                *Min(-2.5e+006)'
c       WRITE(IOUTMVW,'(A)')'                *Max(2.5e+007)'
       WRITE(IOUTMVW,'(A)')'                *Format(Auto)'
       WRITE(IOUTMVW,'(A)')'                *Precision(5)'
       WRITE(IOUTMVW,'(A)')'                *Tics(12)'
       WRITE(IOUTMVW,'(A)')'                *Grids(2)'
       WRITE(IOUTMVW,'(A)')'                *Color(67)'
       WRITE(IOUTMVW,'(A)')'                *AutoFit(TRUE)'
       WRITE(IOUTMVW,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *FitRange(FALSE)'
       WRITE(IOUTMVW,'(A)')'            *EndAxis()'
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 22, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 22, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Mass")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Mass")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
c
       WRITE(IOUTMVW,'(A)')'        *EndPlot()'
       WRITE(IOUTMVW,'(A)')'    *EndWindow()'
       WRITE(IOUTMVW,'(A)')'    *BeginWindow(Plot)         // Window 4'
       WRITE(IOUTMVW,'(A)')'        *SaveDataInline(0)'
       WRITE(IOUTMVW,'(A)')'        *ExportFormat("PNG")'
       WRITE(IOUTMVW,'(A)')'        *BeginPlot()'
       WRITE(IOUTMVW,'(A)')'            *PlotType(0)'
       WRITE(IOUTMVW,'(A)')'            *BeginPlotHeader(On)'
       WRITE(IOUTMVW,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 14)'
       WRITE(IOUTMVW,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Text("RUN REPORT (Time step)")'
       WRITE(IOUTMVW,'(A)')'                *HeaderAlignment(2)'
       WRITE(IOUTMVW,'(A)')'            *EndPlotHeader()'
       WRITE(IOUTMVW,'(A)')'            *BeginPlotFooter(Off)'
       WRITE(IOUTMVW,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
       WRITE(IOUTMVW,'(A)')'                *FooterAlignment(2)'
       WRITE(IOUTMVW,'(A)')'            *EndPlotFooter()'
       WRITE(IOUTMVW,'(A)')'            *BeginLegend(On)'
       WRITE(IOUTMVW,'(A)')'                *Font("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *BorderWidth(1)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Leader(Left)'
       WRITE(IOUTMVW,'(A)')'                *Location(INSIDE)'
       WRITE(IOUTMVW,'(A)')'                *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
       WRITE(IOUTMVW,'(A)')'                *AutoPosition(True)'
       WRITE(IOUTMVW,'(A)')'                *Reversed(no)'
       WRITE(IOUTMVW,'(A)')'            *EndLegend()'
       WRITE(IOUTMVW,'(A)')'            *UniformAspectRatio(0)'
       WRITE(IOUTMVW,'(A)')'            *FrameColor(66)'
       WRITE(IOUTMVW,'(A)')'            *BackgroundColor(1)'
       WRITE(IOUTMVW,'(A)')'            *GridLineColor(9)'
       WRITE(IOUTMVW,'(A)')'            *ZeroLineColor(0)'
       WRITE(IOUTMVW,'(A)')'            *BeginAxis(X, "X1", on)'
       WRITE(IOUTMVW,'(A)')'                *Label("Time")'
       WRITE(IOUTMVW,'(A)')'                *Scale(Linear)'
       WRITE(IOUTMVW,'(A)')'                *TicMethod(PerAxis)'
       WRITE(IOUTMVW,'(A)')'                *Min(0)'
c       WRITE(IOUTMVW,'(A)')'                *Max(22.5)'
                  FMW  = "(A21,1PG15.6,A)"
       WRITE(IOUTMVW,FMT=FMW) '                *Max(',TT,')'
C
       WRITE(IOUTMVW,'(A)')'                *Format(Auto)'
       WRITE(IOUTMVW,'(A)')'                *Precision(5)'
       WRITE(IOUTMVW,'(A)')'                *Tics(10)'
       WRITE(IOUTMVW,'(A)')'                *Grids(2)'
       WRITE(IOUTMVW,'(A)')'                *Color(67)'
       WRITE(IOUTMVW,'(A)')'                *AutoFit(TRUE)'
       WRITE(IOUTMVW,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *FitRange(FALSE)'
       WRITE(IOUTMVW,'(A)')'            *EndAxis()'
       WRITE(IOUTMVW,'(A)')'            *BeginAxis(Y, "Y1", on)'
       WRITE(IOUTMVW,'(A)')'                *Label("{p1w2c1.y.HWDatatype}")'
       WRITE(IOUTMVW,'(A)')'                *Scale(Linear)'
       WRITE(IOUTMVW,'(A)')'                *TicMethod(PerAxis)'
c       WRITE(IOUTMVW,'(A)')'                *Min(-2.5e+006)'
c       WRITE(IOUTMVW,'(A)')'                *Max(2.5e+007)'
       WRITE(IOUTMVW,'(A)')'                *Format(Auto)'
       WRITE(IOUTMVW,'(A)')'                *Precision(5)'
       WRITE(IOUTMVW,'(A)')'                *Tics(12)'
       WRITE(IOUTMVW,'(A)')'                *Grids(2)'
       WRITE(IOUTMVW,'(A)')'                *Color(67)'
       WRITE(IOUTMVW,'(A)')'                *AutoFit(TRUE)'
       WRITE(IOUTMVW,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *FitRange(FALSE)'
       WRITE(IOUTMVW,'(A)')'            *EndAxis()'
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 22, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 22, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Time step")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time step")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_1})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
       WRITE(IOUTMVW,'(A)')'        *EndPlot()'
       WRITE(IOUTMVW,'(A)')'    *EndWindow()'

      ELSEIF(IMVW_REF == 1) THEN

       WRITE(IOUTMVW,'(A)')'    *BeginWindow(Animation)         // Window 3'
       WRITE(IOUTMVW,'(A)')'        *IsActive()'
       WRITE(IOUTMVW,'(A)')'        *ExportFormat("PNG")'
       WRITE(IOUTMVW,'(A)')'        *AnimationNote("REFERENCE REPORT")'
       WRITE(IOUTMVW,'(A)')'        *BeginGraphic()'
       WRITE(IOUTMVW,'(A)')'            *LightInfo(0, 0, 1, 0, 0, 0, 64)'
       WRITE(IOUTMVW,'(A)')'            *RotationAngle(15)'
       WRITE(IOUTMVW,'(A)')'            *BeginModel({GRAPHIC_FILE_2}, "RADIOSS (A) Result Reader")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Create 1D components:", "By solver output")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Displacement result based on:", "Model position")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Maximum Plastic strain over layers", "No")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Maximum Plastic strain over layers with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Plastic strain with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                *ReaderProperty("Strain Tensor with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                *ResultMathTemplate("Standard")'
       WRITE(IOUTMVW,'(A)')'                *BeginResult({RESULT_FILE_2}, "RADIOSS (A) Result Reader")'
       WRITE(IOUTMVW,'(A)')'                    *CurrentSubcase(1)'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Create 1D components:", "By solver output")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Displacement result based on:", "Model position")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Maximum Plastic strain over layers", "No")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Maximum Plastic strain over layers with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Plastic strain with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                    *ReaderProperty("Strain Tensor with prestrain removed", "No")'
       WRITE(IOUTMVW,'(A)')'                *EndResult()'
cc
c GENERIC PARTS
cc
       WRITE(IOUTMVW,'(A)')'                *BeginPart(1, "Orphan-Node", "PART", 0)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute(On, IdOff, 41, Opa, Sha, Msh, InFit, InCut, InIso)'
       WRITE(IOUTMVW,'(A)')'                *EndPart()'
       WRITE(IOUTMVW,'(A)')'                *BeginPart(851, "Rigid", "PART", 0)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute(On, IdOff, 18, Opa, Sha, Msh, InFit, InCut, InIso)'
       WRITE(IOUTMVW,'(A)')'                *EndPart()'
cc
c GROUPS
cc
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("0D Set", "Off", "Off", "255   0   0", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 1)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 0")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("1D Set", "Off", "Off", "  0 255   0", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 2)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 1")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("2D Set", "Off", "Off", "  0   0 255", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 3)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 2")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("3D Set", "Off", "Off", "  0   0 255", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 4)'
       WRITE(IOUTMVW,'(A)')'                        *Add("dimension == 3")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
       WRITE(IOUTMVW,'(A)')'                *BeginGroup("Orphan Nodes", "Off", "Off", "255 255 255", 1, "wire")'
       WRITE(IOUTMVW,'(A)')'                    *BeginSelection(Part, SelectAll, "User_Set", 5)'
       WRITE(IOUTMVW,'(A)')'                        *Add("Orphan-Node id 1")'
       WRITE(IOUTMVW,'(A)')'                    *EndSelection()'
       WRITE(IOUTMVW,'(A)')'                *EndGroup()'
cc
c 
cc
       WRITE(IOUTMVW,'(A)')'                *BeginDeformed()'
       WRITE(IOUTMVW,'(A)')'                    *ScaleMode("ScaleFactor")'
       WRITE(IOUTMVW,'(A)')'                    *Scale("1.000000 1.000000 1.000000")'
       WRITE(IOUTMVW,'(A)')'                    *ResolvedInSystem(0)'
       WRITE(IOUTMVW,'(A)')'                    *ResultType("Displacement")'
       WRITE(IOUTMVW,'(A)')'                    *UndeformedMode("None")'
       WRITE(IOUTMVW,'(A)')'                    *UndeformedColor("componentcolor")'
       WRITE(IOUTMVW,'(A)')'                    *UndeformedTracking("off")'
       WRITE(IOUTMVW,'(A)')'                *EndDeformed()'
       WRITE(IOUTMVW,'(A)')'                *BeginResultMath()'
       WRITE(IOUTMVW,'(A)')'                *EndResultMath()'
       WRITE(IOUTMVW,'(A)')'                *LayerNumber(0)'
       WRITE(IOUTMVW,'(A)')'            *EndModel()'
       WRITE(IOUTMVW,'(A)')'            *RenderOptions("None", "ClipTransparencyOff")'
       WRITE(IOUTMVW,'(A)')'            *DisplayOptions("NotesOn")'
       WRITE(IOUTMVW,'(A)')'            *BeginNote("On", "Model Info")'
       WRITE(IOUTMVW,'(A)')'                *Transparent("On")'
       WRITE(IOUTMVW,'(A)')'                *AutoHide("Off")'
       WRITE(IOUTMVW,'(A)')'                *FillColor(31)'
       WRITE(IOUTMVW,'(A)')'                *TextColor(1)'
       WRITE(IOUTMVW,'(A)')'                *Attach("WINDOW")'
       WRITE(IOUTMVW,'(A)')'                *Position(0.500000, 0.500000)'
       WRITE(IOUTMVW,'(A)')'                *Text("{for (i = 0; i != numpts(window.modeltitlelist); ++i) }\n
     .    {window.modelidlist[i]}:{window.modeltitlelist[i]}\n{window.loadcaselist[i]} : 
     . {window.simulationsteplist[i]} : {window.framelist[i]}\n{endloop}")'
                
       WRITE(IOUTMVW,'(A)')'                *Font("Arial", "regular", "regular", 10)'
       WRITE(IOUTMVW,'(A)')'                *Color(1)'
       WRITE(IOUTMVW,'(A)')'                *BorderWidth(0)'
       WRITE(IOUTMVW,'(A)')'                *NoteAlignment("Right")'
       WRITE(IOUTMVW,'(A)')'                *NoteAnchor("Right", "Top")'
       WRITE(IOUTMVW,'(A)')'                *TitleFlag("Yes")'
       WRITE(IOUTMVW,'(A)')'            *EndNote()'
       WRITE(IOUTMVW,'(A)')'            *Preferences(1, 31, 10, 0, 2, 3, 4, TriadOn, 30, "TopToBottom", "Off")'
       WRITE(IOUTMVW,'(A)')'            *CurrentModel(1)'
       WRITE(IOUTMVW,'(A)')'            *View(0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(A)')'                  -0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(A)')'                  -3.60866e-012, 0.866025, 0.5, 0, '
       WRITE(IOUTMVW,'(A)')'                  0, 0, 0, 1)'
       WRITE(IOUTMVW,'(A)')'            *ClippingRegion(-99.7008, 538.081, -174.535, 492.689, -560.868, 111.237)'


       WRITE(IOUTMVW,'(A)')'            *BeginNote("On", "Note 2")'
       WRITE(IOUTMVW,'(A)')'                *Transparent("On") '
       WRITE(IOUTMVW,'(A)')'                *AutoHide("Off") '
       WRITE(IOUTMVW,'(A)')'                *FillColor(31) '
       WRITE(IOUTMVW,'(A)')'                *TextColor(1) '
       WRITE(IOUTMVW,'(A)')'                *Attach("WINDOW") '
       WRITE(IOUTMVW,'(A)')'                *Position(0.081395, 0.944444) '
       WRITE(IOUTMVW,'(A)')'                *Text("REFERENCE REPORT") '
       WRITE(IOUTMVW,'(A)')'                *Font("Arial", "regular", "regular", 10) '
       WRITE(IOUTMVW,'(A)')'                *Color(1) '
       WRITE(IOUTMVW,'(A)')'                *BorderWidth(1) '
       WRITE(IOUTMVW,'(A)')'                *Shape("Rectangle") '
       WRITE(IOUTMVW,'(A)')'                *NoteAlignment("Left") '
       WRITE(IOUTMVW,'(A)')'                *NoteAnchor("Left", "Top") '
       WRITE(IOUTMVW,'(A)')'                *TitleFlag("No") '
       WRITE(IOUTMVW,'(A)')'            *EndNote() '
       WRITE(IOUTMVW,'(A)')'            *Preferences(1, 31, 10, 0, 2, 3, 4, TriadOn, 30, "TopToBottom", "Off")'
       WRITE(IOUTMVW,'(A)')'            *CurrentModel(1)'
       WRITE(IOUTMVW,'(A)')'            *View(0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(A)')'                  -0.707107, 0.353553, -0.612372, 0, '
       WRITE(IOUTMVW,'(A)')'                  -3.60866e-012, 0.866025, 0.5, 0, '
       WRITE(IOUTMVW,'(A)')'                  0, 0, 0, 1)'
       WRITE(IOUTMVW,'(A)')'            *ClippingRegion(-99.7008, 538.081, -174.535, 492.689, -560.868, 111.237)'
c
c       FMW  = "(A28,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A,1PG15.6,A )"
c       WRITE(IOUTMVW,FMT=FMW) ,'            *ClippingRegion(',XMIN_GLOB,',',XMAX_GLOB,',',YMIN_GLOB,',',
c     .                        YMAX_GLOB,',',ZMIN_GLOB,',',ZMAX_GLOB ,')'
c
       WRITE(IOUTMVW,'(A)')'        *EndGraphic()'
       WRITE(IOUTMVW,'(A)')'    *EndWindow()'
       WRITE(IOUTMVW,'(A)')'    *BeginWindow(Plot)         // Window 4'
       WRITE(IOUTMVW,'(A)')'        *SaveDataInline(0)'
       WRITE(IOUTMVW,'(A)')'        *ExportFormat("PNG")'
       WRITE(IOUTMVW,'(A)')'        *BeginPlot()'
       WRITE(IOUTMVW,'(A)')'            *PlotType(0)'
       WRITE(IOUTMVW,'(A)')'            *BeginPlotHeader(On)'
       WRITE(IOUTMVW,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 14)'
       WRITE(IOUTMVW,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Text("REFERENCE REPORT (Energies)")'
       WRITE(IOUTMVW,'(A)')'                *HeaderAlignment(2)'
       WRITE(IOUTMVW,'(A)')'            *EndPlotHeader()'
       WRITE(IOUTMVW,'(A)')'            *BeginPlotFooter(Off)'
       WRITE(IOUTMVW,'(A)')'                *PrimaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *SecondaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TertiaryFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Text("{p1w2c1.y.HWRequest} - {p1w2c1.y.HWComponent}")'
       WRITE(IOUTMVW,'(A)')'                *FooterAlignment(2)'
       WRITE(IOUTMVW,'(A)')'            *EndPlotFooter()'
       WRITE(IOUTMVW,'(A)')'            *BeginLegend(On)'
       WRITE(IOUTMVW,'(A)')'                *Font("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *BorderWidth(1)'
       WRITE(IOUTMVW,'(A)')'                *Color(0)'
       WRITE(IOUTMVW,'(A)')'                *Leader(Left)'
       WRITE(IOUTMVW,'(A)')'                *Location(INSIDE)'
       WRITE(IOUTMVW,'(A)')'                *Position(0.152542, 2.46092e+007, 9.45763, 1.85524e+007)'
       WRITE(IOUTMVW,'(A)')'                *AutoPosition(True)'
       WRITE(IOUTMVW,'(A)')'                *Reversed(no)'
       WRITE(IOUTMVW,'(A)')'            *EndLegend()'
       WRITE(IOUTMVW,'(A)')'            *UniformAspectRatio(0)'
       WRITE(IOUTMVW,'(A)')'            *FrameColor(66)'
       WRITE(IOUTMVW,'(A)')'            *BackgroundColor(1)'
       WRITE(IOUTMVW,'(A)')'            *GridLineColor(9)'
       WRITE(IOUTMVW,'(A)')'            *ZeroLineColor(0)'
       WRITE(IOUTMVW,'(A)')'            *BeginAxis(X, "X1", on)'
       WRITE(IOUTMVW,'(A)')'                *Label("Time")'
       WRITE(IOUTMVW,'(A)')'                *Scale(Linear)'
       WRITE(IOUTMVW,'(A)')'                *TicMethod(PerAxis)'
       WRITE(IOUTMVW,'(A)')'                *Min(0)'
c       WRITE(IOUTMVW,'(A)')'                *Max(22.5)'
                  FMW  = "(A21,1PG15.6,A)"
       WRITE(IOUTMVW,FMT=FMW) '                *Max(',TT,')'
C
       WRITE(IOUTMVW,'(A)')'                *Format(Auto)'
       WRITE(IOUTMVW,'(A)')'                *Precision(5)'
       WRITE(IOUTMVW,'(A)')'                *Tics(10)'
       WRITE(IOUTMVW,'(A)')'                *Grids(2)'
       WRITE(IOUTMVW,'(A)')'                *Color(67)'
       WRITE(IOUTMVW,'(A)')'                *AutoFit(TRUE)'
       WRITE(IOUTMVW,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *FitRange(FALSE)'
       WRITE(IOUTMVW,'(A)')'            *EndAxis()'
       WRITE(IOUTMVW,'(A)')'            *BeginAxis(Y, "Y1", on)'
       WRITE(IOUTMVW,'(A)')'                *Label("{p1w2c1.y.HWDatatype}")'
       WRITE(IOUTMVW,'(A)')'                *Scale(Linear)'
       WRITE(IOUTMVW,'(A)')'                *TicMethod(PerAxis)'
c       WRITE(IOUTMVW,'(A)')'                *Min(-2.5e+006)'
c       WRITE(IOUTMVW,'(A)')'                *Max(2.5e+007)'
       WRITE(IOUTMVW,'(A)')'                *Format(Auto)'
       WRITE(IOUTMVW,'(A)')'                *Precision(5)'
       WRITE(IOUTMVW,'(A)')'                *Tics(12)'
       WRITE(IOUTMVW,'(A)')'                *Grids(2)'
       WRITE(IOUTMVW,'(A)')'                *Color(67)'
       WRITE(IOUTMVW,'(A)')'                *AutoFit(TRUE)'
       WRITE(IOUTMVW,'(A)')'                *LabelFont("Microsoft Sans Serif", 0, 0, 12)'
       WRITE(IOUTMVW,'(A)')'                *TicsFont("Microsoft Sans Serif", 0, 0, 10)'
       WRITE(IOUTMVW,'(A)')'                *FitRange(FALSE)'
       WRITE(IOUTMVW,'(A)')'            *EndAxis()'
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 22, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 22, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Internal Energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 18, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 18, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Kinetic Energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 55, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 55, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Contact energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Contact energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Contact energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Contact energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Contact energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 46, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 46, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "Hourglass energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
       WRITE(IOUTMVW,'(A)')'            *BeginCurve(On, "{y.HWRequest}")'
       WRITE(IOUTMVW,'(A)')'                *Line(1, 24, 1)'
       WRITE(IOUTMVW,'(A)')'                *Symbol(0, 24, 1)'
       WRITE(IOUTMVW,'(A)')'                *Shade(False)'
       WRITE(IOUTMVW,'(A)')'                *Bar(0, 0, 2)'
       WRITE(IOUTMVW,'(A)')'                *ShowInLegend(True)'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Y, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("TE-Total Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "TE-Total Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(X, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(Time, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(U, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Time")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "Time")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *BeginVector(V, File)'
       WRITE(IOUTMVW,'(A)')'                    *Filename({PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *ReaderTargetVersion(14)'
       WRITE(IOUTMVW,'(A)')'                    *Datatype("Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Request("TE-Total Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Component("MAG")'
       WRITE(IOUTMVW,'(A)')'                    *ScaleFactor("1")'
       WRITE(IOUTMVW,'(A)')'                    *Offset("0")'
       WRITE(IOUTMVW,'(A)')'                    *AxisIndex(1)'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWFile", "File", "String", {PLOT_FILE_2})'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWSolver", "Solver", "String", "RADIOSS")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComponent", "Component", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReaderTargetVersion", "ReaderTargetVersion", "String", "14.000000")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWWordSize", "WordSize", "String", "4")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWDatatype", "Datatype", "String", "Global Variables")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWRequest", "Request", "String", "TE-Total Energy")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWComplexComponent", "ComplexComponent", "String", "MAG")'
       WRITE(IOUTMVW,'(A)')'                    *Attribute("HWReader", "Reader", "String", "hgradioss++.exe")'
       WRITE(IOUTMVW,'(A)')'                *EndVector()'
       WRITE(IOUTMVW,'(A)')'                *Attribute("HWLastGoodCurveName", "HWLastGoodCurveName", "String", "TE-Total Energy")'
       WRITE(IOUTMVW,'(A)')'            *EndCurve()'
       WRITE(IOUTMVW,'(A)')'        *EndPlot()'
       WRITE(IOUTMVW,'(A)')'    *EndWindow()'

       ENDIF


       WRITE(IOUTMVW,'(A)')'    *TimeScales(1, 1)'
       WRITE(IOUTMVW,'(A)')'    *TimeDelays(0, 0)'
       WRITE(IOUTMVW,'(A)')'    *AnimationEnable(1, 1)'
       WRITE(IOUTMVW,'(A)')'    *SyncTolerance(2e-008)'
       WRITE(IOUTMVW,'(A)')'    *SyncTableGenerationPolicy(ALL_BLOCKS)'
       WRITE(IOUTMVW,'(A)')'*EndPage()'



        
      ENDIF
c-----------
      RETURN
      END
